message ("\nInstalacja na twardy dysk pakietu\nFIRMA 6.5\n\nSystem operacyjny musi byê wczytany z twardego dysku, dopiero wtedy moûesz wîoûyê do stacji dyskietkë z FirmaDodatki.\n\n")
)
(
set DESTDIR (askdir
(prompt ("Wybierz urzâdzenie i katalog, na które chcesz instalowaê program"))
(help ("W tym miejscu naleûy wybraê partycjë (oraz katalog), na którâ zainstalowana zostanie Firma. Program instalacyjny nie tworzy swojego katalogu - program nagrywany jest bezpoôrednio do katalogu okreôlonego w oknie wyboru."))
(default ("dh0:Firma"))
)
)
(
if (= (exists DESTDIR) 0)
(makedir DESTDIR (infos))
)
(complete 2)
(
(set SPACE (getdiskspace DESTDIR))
(
if( < SPACE 1200000)
(message ("\n\nUWAGA! Za maîo miejsca na twardym dysku aby dokonaê peînej instalacji! Jeôli pomimo wszystko chcesz zainstalowaê Firmë na të partycjë wybierz tryb Experta przy instalacji i zainstaluj tylko te pliki, które sâ niezbëdne!!!"))
)
)
(
message ("\n\n\nPotwierdú chëê instalacji pakietu FIRMA 6.5 na\n\n %s" DESTDIR)
)
(set @default-dest DESTDIR)
(complete 4)
(
set CHOICE
(askoptions (prompt ("Wybierz czëôci dyskietki dystrybucyjnej, które chcesz zainstalowaê:"))
(help ("W tym miejscu moûesz zrezygnowaê z instalowania pewnych fragmentów dyskietki instalacyjnej. Jeôli np. nie chcesz instalowaê polskich sterowników do drukarki moûesz usunâê marker przy odpowiedniej opcji."))
(choices
("program PLFonts (Firma:c/PLFonts)")
("sterowniki drukarki (Firma:devs/printers)")
("biblioteki (Firma:libs)")
("kroje liter (Firma:fonts)")
("program FIRMA 6.5 (Firma:Firma(.info))")
("programy dodatkowe (FirmaDodatki:*)")
("szablony wydruków")
)
(default 127)
)
)
(complete 8)
(
if (bitand CHOICE 1)
(
copyfiles (source "Firma:c")
(dest "SYS:c")
(
choices
("PLFonts")
)
(confirm)
(prompt ("Program umoûliwiajâcy instalacjë polskich znaków w systemie"))
(help (""))
(nogauge)
)
)
(complete 16)
(
if (bitand CHOICE 2)
(
(if (= (exists ("SYS:devs")) 0)
(makedir ("SYS:devs")))
(if (= (exists ("SYS:devs/printers")) 0)
(makedir ("SYS:devs/printers")))
(copyfiles (source "Firma:devs/printers")
(dest "SYS:devs/printers")
(all)
(confirm)
(prompt ("Wybierz sterowniki, które chcesz skopiowaê:"))
(help ("Moûesz zainstalowaê tylko ten sterownik, który obsîuguje Twojâ drukarkë usuwajâc znaczki 'V' z pozostaîych pozycji listy."))
(nogauge)
)
)
)
(complete 33)
(
if (bitand CHOICE 4)
(
(copylib (source "Firma:libs/diskfont.library")
(dest "SYS:libs")
(prompt ("Biblioteka diskfont.library"))
(confirm)
(help (""))
(nogauge)
)
(complete 36)
(copylib (source "Firma:libs/icon.library")
(dest "SYS:libs")
(prompt ("Biblioteka icon.library"))
(confirm)
(help (""))
(nogauge)
)
)
)
(complete 40)
(
if (bitand CHOICE 8)
(
copyfiles (source "Firma:fonts")
(dest "SYS:fonts")
(all)
(confirm)
(prompt ("Wybierz kroje liter, które chcesz skopiowaê:"))
(help ("Krój Atari (wraz z plikiem Atari.font) jest niezbëdny do uruchomienia pakietu. Krój TopazPL (wraz z plikiem TopazPL.font) jest niezbëdny do uruchomienia programu PLFonts instalujâcego polskie znaki w systemie."))
(nogauge)
)
)
(complete 46)
(
if (bitand CHOICE 16)
(
copyfiles (source "Firma:Firma")
(dest DESTDIR)
(infos)
)
)
(complete 60)
(
if (bitand CHOICE 32)
(copyfiles (source "FirmaDodatki:")
(dest DESTDIR)
(
choices
("EWID.RYCZAÎT")
("MAJÂTEK_TRWAÎY")
("KSIËGA_PR")
("SPRZEDAÛ-VAT")
("ZAKUP-VAT")
("BANK")
("PRZEBIEG-AUTO")
("WYDATKI-AUTO")
("ANALIZA_FIRMY")
)
(confirm)
(infos)
(prompt ("Wybierz programy, które chcesz zainstalowaê:"))
(help ("Moûesz zainstalowaê tylko te programy, którymi bëdziesz sië posîugiwaî usuwajâc znaczki 'V' z pozostaîych pozycji listy."))
)
)
(complete 90)
(
if (bitand CHOICE 64)
(
(
set WHICHS
(askchoice (prompt ("Jakie szablony wydruków chcesz zainstalowaê na dysku twardym?"))
(help ("Najbezpieczniej wybraê szablony standardowe. Posiadacze drukarek laserowych lub atramentowych Hewlett-Packard mogâ wybraê szablony napisane specjalnie na te typy drukarek. Posiadacze drukarek najprostszych byê moûe zmuszeni bëdâ wybraê szablony uproszczone (lub modyfikowaê szablony pod konkretne wymagania drukarek)."))
(choices
("Szablony uproszczone")
("Szablony standardowe")
("Szablony Hewlett-Packard (laser lub plujka)")
)
(default 1)
)
)
(makedir (tackon DESTDIR "Szablony"))
(if (not WHICHS) (set SS ("Firma:Szablony_proste")))
(if (bitand WHICHS 1) (set SS ("Firma:Szablony")))
(if (bitand WHICHS 2) (set SS ("FirmaDodatki:Szablony_HP")))
(copyfiles
(source SS)
(dest (tackon DESTDIR "Szablony"))
(all)
(help (""))
(nogauge)
)
)
)
(complete 90)
(
set DATADIRS
(askoptions (prompt ("Jakie magazyny chcesz zaîoûyê na twardym dysku?"))
(help ("Program instalujâcy zaîoûy odpowiednie katalogi i przypisania do zaznaczonych znakiem 'V' magazynów."))
(message ("\n\nUWAGA!\n========\nProgram zostaî zainstalowany!\nAby móc go uruchomiê naleûy, po wyjôciu z programu instalacyjnego, zresetowaê komputer i ponownie uruchomiê system z twardego dysku."))
